home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / FIND.DIR / 00016_Script_set up text < prev    next >
Text File  |  1995-11-13  |  555b  |  23 lines
  1. on exitFrame
  2.   global gBaseListFind, gHilitedFind, gBottomFind, gTopFind, gResList
  3.   global gFindFont
  4.   
  5.   set gHilitedFind = 0
  6.   
  7.   set gBaseListFind = 2
  8.   set gTopFind = 1
  9.   set gBottomFind = the number of lines in field gBaseListFind
  10.   set gResList = []
  11.   
  12.   hilite line 1 of field 6
  13.   set the textFont of cast 6 = gFindFont
  14.   
  15.   if the machineType = 256 then
  16.     set the textSize of cast 6 = 12
  17.   else
  18.     set the textSize of cast 6 = 14
  19.   end if
  20.   
  21.   set the textStyle of cast 6 = "bold"
  22.   put the text of cast 2 into cast 5
  23. end